% p = Request("page") -1 if p<0 then p=0 dim pppp Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("gb.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "admin",conn,1,1 %>